home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.06.lha / AmiCAD / ARexx / BoîteArrondie.AmiCAD < prev    next >
Text File  |  2000-04-13  |  985b  |  34 lines
  1. /* Tracé d'une boîte aux coins arrondis */
  2. /* Version 1.00: 13 avril 1999
  3.    Version 1.01: 13 avril 2000 (modif GETZONE et SAVEALL)
  4. $VER: 1.01 (© R.Florac, 13 avril 2000) */
  5.  
  6. options results     /* indispensable pour récupérer le résultat des macros */
  7.  
  8. signal on error     /* pour l'interception des erreurs */
  9. signal on syntax
  10.  
  11. 'GETZONE("Dessinez la boîte avec la souris")'
  12. c=result
  13. if c="" then exit
  14.  
  15. 'ASKNUM("Rayon des angles?",10)'
  16. angle=result
  17. if angle="" then exit
  18.  
  19. parse var c x0 ',' y0 ',' x1 ',' y1
  20. 'DEF BOXR(X,Y,Z,W,R)=M__=DRAWMODE(-1):GROUP(ARC(X+R,Y+R,R,R,-90,0),DRAW(X+R,Y,Z-R,Y),ARC(Z-R,Y+R,R,R,0,90),DRAW(Z,Y+R,Z,W-R),ARC(Z-R,W-R,R,R,90,180),DRAW(Z-R,W,X+R,W),ARC(X+R,W-R,R,R,180,270),DRAW(X,Y+R,X,W-R)):DRAWMODE(M__)'
  21. 'SAVEALL:BOXR('c','angle')'
  22.  
  23. exit
  24.  
  25. /* Traitement des erreurs, interruption du programme */
  26. syntax:
  27. erreur=RC
  28. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  29. exit
  30.  
  31. error:
  32. 'MESSAGE("Erreur en ligne 'SIGL'")'
  33. exit
  34.